home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / IEditor / Examples / GMExample / GMExample.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-06-17  |  1.1 KB  |  54 lines
  1. /*
  2. ** $VER: GMExample.rexx 0.002 (08.02.96) © Gian Maria Calzolari
  3. **
  4. **
  5. **  FUNCTION:
  6. **      Let's try the two GMExample's ARexx cmds...
  7. **
  8. ** $HISTORY:
  9. **
  10. ** 08 Feb 1996 : 000.002 : Corrected a few errors and adapted to the latest
  11. **                          executable!
  12. ** 10 Dec 1995 : 000.001 : First version!
  13. **
  14. */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. SIGNAL ON ERROR
  19.  
  20. ADDRESS GMEXAMPLE.1
  21.  
  22. /* Let's see what's into the string gadget... */
  23. GetTheString
  24. StringText = result
  25.  
  26. say "The string gadget contains <" || StringText || ">"
  27.  
  28. /* Let's put something into the string gadget... */
  29. 'PutTheString' 'Dummy!'
  30.  
  31. /* Let's see what's into the string gadget... */
  32. GetTheString
  33. StringText = result
  34.  
  35. say "...now the string gadget contains <" || StringText || ">!"
  36.  
  37. 'GimmeFive' '"Each parameters (up to two)" "are between square brackets"'
  38.  
  39. /* the parm will be traslated to uppercase */
  40. 'GimmeFive' 1st_parameter
  41.  
  42. 'GimmeFive' '"1st parameter with more than one single word" 2nd_parameter'
  43.  
  44. /* the parms won't be traslated to uppercase */
  45. 'GimmeFive' '1st_parameter' '2nd_parameter'
  46.  
  47. Quit
  48.  
  49. EXIT
  50.  
  51. ERROR:
  52.     say 'Error' RC 'on line' SIGL
  53.     EXIT RC
  54.